inherited FRelatorioKit: TFRelatorioKit
  Caption = 'ESTOQUE / KIT MANUTEN'#199#195'O / RELAT'#211'RIO'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited RLReport: TRLReport
    Left = 8
    Top = 61
    DataSource = DSPesquisa
    object RLGroup1: TRLGroup
      Left = 38
      Top = 123
      Width = 718
      Height = 76
      object RLBand2: TRLBand
        Left = 0
        Top = 0
        Width = 718
        Height = 28
        BandType = btColumnHeader
        Borders.Sides = sdCustom
        Borders.DrawLeft = False
        Borders.DrawTop = False
        Borders.DrawRight = False
        Borders.DrawBottom = True
        object RLDBText2: TRLDBText
          Left = 0
          Top = 10
          Width = 112
          Height = 16
          DataField = 'KIT_CODIGO'
          DataSource = DSPesquisa
          Text = 'KIT:  '
        end
        object RLDBText6: TRLDBText
          Left = 96
          Top = 10
          Width = 202
          Height = 16
          AutoSize = False
          DataField = 'KIT_DESCRICAO'
          DataSource = DSPesquisa
        end
        object RLDBText7: TRLDBText
          Left = 304
          Top = 10
          Width = 409
          Height = 16
          AutoSize = False
          DataField = 'KIT_OBSERVACAO'
          DataSource = DSPesquisa
          Text = 'Obs:  '
        end
      end
      object RLBand3: TRLBand
        Left = 0
        Top = 28
        Width = 718
        Height = 17
        object RLDBText3: TRLDBText
          Left = 24
          Top = 0
          Width = 162
          Height = 16
          DataField = 'ITENS_KIT_PRODCODIGO'
          DataSource = DSPesquisa
        end
        object RLDBText4: TRLDBText
          Left = 104
          Top = 0
          Width = 154
          Height = 16
          DataField = 'ITENS_KIT_PROD_DESC'
          DataSource = DSPesquisa
        end
        object RLDBText5: TRLDBText
          Left = 640
          Top = 0
          Width = 70
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          DataField = 'ITENS_KIT_QTD'
          DataSource = DSPesquisa
        end
      end
      object RLBand4: TRLBand
        Left = 0
        Top = 45
        Width = 718
        Height = 24
        BandType = btSummary
        object RLDBResult1: TRLDBResult
          Left = 640
          Top = 0
          Width = 70
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Borders.Sides = sdCustom
          Borders.DrawLeft = False
          Borders.DrawTop = True
          Borders.DrawRight = False
          Borders.DrawBottom = False
          DataField = 'ITENS_KIT_QTD'
          DataSource = DSPesquisa
          Info = riSum
          ResetAfterPrint = True
        end
      end
    end
    object RLBand5: TRLBand
      Left = 38
      Top = 105
      Width = 718
      Height = 18
      BandType = btHeader
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      object RLLabel1: TRLLabel
        Left = 24
        Top = 0
        Width = 49
        Height = 16
        Caption = 'C'#243'digo'
      end
      object RLLabel2: TRLLabel
        Left = 104
        Top = 0
        Width = 66
        Height = 16
        Caption = 'Descri'#231#227'o'
      end
      object RLLabel3: TRLLabel
        Left = 664
        Top = 0
        Width = 46
        Height = 16
        Alignment = taRightJustify
        Caption = 'Quant.'
      end
    end
  end
  inherited QPesquisa: TQuery
    Active = True
    DataSource = FCadastroKit.dsCadastro
    SQL.Strings = (
      'SELECT '
      '  KIT.KIT_CODIGO,'
      '  KIT.KIT_DESCRICAO,'
      '  KIT.KIT_OBSERVACAO,'
      '  ITENS_KIT.ITENS_KIT_PRODCODIGO,'
      '  ITENS_KIT.ITENS_KIT_PROD_DESC,'
      '  ITENS_KIT.ITENS_KIT_QTD'
      'FROM'
      '  KIT'
      
        '  INNER JOIN ITENS_KIT ON (KIT.KIT_CODIGO = ITENS_KIT.ITENS_KIT_' +
        'KITCODIGO)'
      'WHERE'
      '  KIT.KIT_CODIGO = :KIT_CODIGO'
      '  ')
    ParamData = <
      item
        DataType = ftInteger
        Name = 'KIT_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
  end
end
